home *** CD-ROM | disk | FTP | other *** search
/ ftp.ncsa.uiuc.edu / ftp.ncsa.uiuc.edu.zip / ftp.ncsa.uiuc.edu / HypercardAnimator / HA1.0.smp.sit.hqx / Examples / HC Animation Template / background_2745.txt < prev    next >
Text File  |  1989-08-24  |  3KB  |  135 lines
  1. -- background: 2745 from stack: in
  2. -- bmap block id: 3219
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: A000
  11. -- rect: left=450 top=8 right=66 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 8419 / 8419
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Next Card
  20. ----- HyperTalk script -----
  21. on mouseDown
  22.   repeat while the mouse is down
  23.     go to next card
  24.   end repeat
  25. end mouseDown
  26.  
  27.  
  28.  
  29. -- part 9 (button)
  30. -- low flags: 00
  31. -- high flags: A000
  32. -- rect: left=450 top=69 right=126 bottom=508
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 17779 / 17779
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Prev Card
  41. ----- HyperTalk script -----
  42. on mouseDown
  43.   repeat while the mouse is down
  44.     go to prev card
  45.   end repeat
  46. end mouseDown
  47.  
  48.  
  49.  
  50. -- part 18 (button)
  51. -- low flags: 00
  52. -- high flags: A001
  53. -- rect: left=449 top=200 right=262 bottom=511
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 12312 / 12312
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Load Frames
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.  
  65.   pictxcmd("NULL")
  66.  
  67.   doMenu "Compact Stack"
  68.  
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 23 (button)
  74. -- low flags: 00
  75. -- high flags: A000
  76. -- rect: left=451 top=130 right=197 bottom=509
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 12398 / 12398
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Run Movie
  85. ----- HyperTalk script -----
  86. on mouseDown
  87.  
  88.   answer "What speed" with "slowest" or "faster" or "fastest"
  89.  
  90.   if it is "slowest" then repeat while the mouse is not down
  91.   go to next card
  92.   wait 3
  93. end repeat
  94.  
  95. if it is "faster" then repeat while the mouse is not down
  96. go to next card
  97. end repeat
  98.  
  99. if it is "fastest" then repeat until the commandkey is down
  100. show all cards
  101. end repeat
  102.  
  103. end mouseDown
  104.  
  105.  
  106.  
  107. -- part 27 (button)
  108. -- low flags: 00
  109. -- high flags: A001
  110. -- rect: left=451 top=269 right=324 bottom=512
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 24727 / 24727
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Delete Stack
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.  
  122.   put the number of cards into it
  123.   go last
  124.   doMenu "New Card"
  125.   go first
  126.  
  127.   repeat with cardcount = 1 to it
  128.     doMenu "Delete Card"
  129.   end repeat
  130.  
  131.   doMenu "Compact Stack"
  132.  
  133. end mouseUp
  134.  
  135.